home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / network / info-sys / www / tkhtml-2.3 / tkhtml-2 / tkHTML-2.3 / tix / schemes / SGIGray.tcl < prev    next >
Encoding:
Text File  |  1995-02-12  |  1.8 KB  |  70 lines
  1. proc tixSetColorScheme::SGIGray {} {
  2.  
  3.     global tixOption
  4.  
  5.     if {[tk colormode .] == "color"} {
  6.     set tixOption(bg)           lightgray
  7.     set tixOption(fg)           black
  8.  
  9.     set tixOption(dark1_bg)     gray
  10.     set tixOption(dark1_fg)     black
  11.     set tixOption(dark2_bg)     gray50
  12.     set tixOption(dark2_fg)     black
  13.  
  14.     set tixOption(light1_bg)    gray90
  15.     set tixOption(light1_fg)    white
  16.     set tixOption(light2_bg)    gray95
  17.     set tixOption(light2_fg)    white
  18.  
  19.     set tixOption(active_bg)    $tixOption(dark1_bg)
  20.     set tixOption(active_fg)    $tixOption(fg)
  21.     set tixOption(disabled_fg)  gray55
  22.  
  23.     set tixOption(input1_bg)    rosybrown
  24.     set tixOption(input2_bg)    rosybrown
  25.     set tixOption(output1_bg)   $tixOption(dark1_bg)
  26.     set tixOption(output2_bg)   $tixOption(bg)
  27.  
  28.     set tixOption(select_fg)    black
  29.     set tixOption(select_bg)    lightblue
  30.  
  31.     set tixOption(selector)        yellow
  32.     } else {
  33.     tixSetColorScheme::GrayScale
  34.     }
  35. }
  36.  
  37.  
  38. proc tixSetColorScheme::GrayScale {} {
  39.  
  40.     global tixOption
  41.  
  42.     set tixOption(bg)           lightgray
  43.     set tixOption(fg)           black
  44.  
  45.     set tixOption(dark1_bg)     gray
  46.     set tixOption(dark1_fg)     black
  47.     set tixOption(dark2_bg)     gray50
  48.     set tixOption(dark2_fg)     white
  49.  
  50.     set tixOption(light1_bg)    gray50
  51.     set tixOption(light1_fg)    white
  52.     set tixOption(light2_bg)    gray50
  53.     set tixOption(light2_fg)    white
  54.  
  55.     set tixOption(active_bg)    gray
  56.     set tixOption(active_fg)    $tixOption(fg)
  57.     set tixOption(disabled_fg)  gray55
  58.  
  59.     set tixOption(input1_bg)    $tixOption(bg)
  60.     set tixOption(input2_bg)    $tixOption(bg)
  61.     set tixOption(output1_bg)   $tixOption(bg)
  62.     set tixOption(output2_bg)   $tixOption(bg)
  63.  
  64.     set tixOption(select_fg)    white
  65.     set tixOption(select_bg)    black
  66.  
  67.     set tixOption(selector)    yellow
  68. }
  69.  
  70.